	program short
	use readmge

        implicit none

        character (len=255) :: fname, fnameroot

	fnameroot = 'test'
	fname = trim(fnameroot)//'.mge'
        open(iomps,file=trim(fname),status='old')

	fname=trim(fnameroot)//'.gms'
	open(iogms,file=fname)

!      Master routine to read an MPSGE input file:
!        - Read one line at a time into a linked list
!        - Locate functions and set up pointers to the constituent records.
!        - Parse records into fields.
!
	write(*,*)'Calling readmps'
        call readmps

!      Parse all fields in the file into constituent elements:
!      - Field identifier text
!      - Identifier argument text
!      - Spanning domain text
!      - Condition text.

	write(*,*)'Calling parse'
        call parse

	call echoprint

        end program short
